home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
gfx
/
raystorm.lha
/
raystorm
/
arexx
/
randomsphere.ray
< prev
next >
Wrap
Text File
|
1995-08-07
|
782b
|
37 lines
/***************
* NAME: randomsphere.ray
* VERSION: 1.0 06.08.1995
* DESCRIPTION: This ARexx-programm demonstrates random colors of faces
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY: DATE NAME COMMENT
* 06.08.95 ah initial release
***************/
OPTIONS RESULTS
IF ~SHOW('P','RAYSTORM') THEN DO /* if not allready running, start RayStorm */
ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
ADDRESS COMMAND WaitForPort RAYSTORM
END
ADDRESS RAYSTORM
OBJECTPATH '/objects'
SETSCREEN 160 128
SETCAMERA 0 0 300 0 0 0 0 1 0 25 20
SETWORLD 0 0 0 40 40 40
POINTLIGHT '10 -10 100 255 255 255'
LOADOBJ 'randomsphere.iob'
STARTRENDER QUICK
SAVEPIC 'randomsphere.iff'
CLEANUP
exit 0